generateNParamAlgList <-function(){

	outList <-list()
	outListCnt <- 1
	#internal score functions list
	scoresList <- list()
	scoresList[["IScore"]]		<- new("IIClusterScore")
	scoresList[["SilhScore"]]	<- new("SilhIClusterScore")
	scoresList[["stdbw"]]		<- new("StdbwIClusterScore")
	
	for(i in 1:length(scoresList)){
		#hierarchical
		outList[[outListCnt]] <- new("HierNonParamClusterAlg",scoresList[[i]])
		outListCnt <- outListCnt+1
		
		#DBSCAN
		outList[[outListCnt]] <- new("DBScanNonParamClusterAlg",scoresList[[i]])
		outListCnt <- outListCnt+1
		
		#FCM
		outList[[outListCnt]] <- new("FCMNonParamClusterAlg",scoresList[[i]])
		outListCnt <- outListCnt+1
		
#		#FCM +N
		outList[[outListCnt]] <- new("FCMNonParamClusterAlg",scoresList[[i]],method="NC")
		outListCnt <- outListCnt+1
#		
#		#GK
		outList[[outListCnt]] <- new("FCMNonParamClusterAlg",scoresList[[i]],method="GK")
		outListCnt <- outListCnt+1
#		
#		#KG+N
		outList[[outListCnt]] <- new("FCMNonParamClusterAlg",scoresList[[i]],method="GKN")
		outListCnt <- outListCnt+1
		
	}
	return(outList)
}